﻿Public Class BooleanEventArgs
    Inherits EventArgs

    Private _state As Boolean
    Public ReadOnly Property State() As Boolean
        Get
            Return _state
        End Get
    End Property

    Public Sub New(ByVal state As Boolean)
        _state = state
    End Sub

End Class
